Hodnota parametru:
Viz. (0.1)
\[ x = 3 \tag{0.1} \]
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(ggplot2)
library(gt)
## Warning: package 'gt' was built under R version 4.3.3
Bez závorek: Hebák et al. (2015)
Se závorkami: (Hebák et al. 2015)
Upřesnění: (Hebák et al. 2015, s. 80)
Víc citací: (Hebák et al. 2015; Moc, Šimsová, and Žambochová 2013,)
Načtení dat o autech, jsme v této kapitole.
Tabulka 2.1
| mpg | cyl | disp | hp | drat | wt | qsec | vs | am | gear | carb |
|---|---|---|---|---|---|---|---|---|---|---|
| 21.0 | 6 | 160 | 110 | 3.90 | 2.620 | 16.46 | 0 | 1 | 4 | 4 |
| 21.0 | 6 | 160 | 110 | 3.90 | 2.875 | 17.02 | 0 | 1 | 4 | 4 |
| 22.8 | 4 | 108 | 93 | 3.85 | 2.320 | 18.61 | 1 | 1 | 4 | 1 |
| 21.4 | 6 | 258 | 110 | 3.08 | 3.215 | 19.44 | 1 | 0 | 3 | 1 |
| 18.7 | 8 | 360 | 175 | 3.15 | 3.440 | 17.02 | 0 | 0 | 3 | 2 |
| 18.1 | 6 | 225 | 105 | 2.76 | 3.460 | 20.22 | 1 | 0 | 3 | 1 |
Tabulka 2.1
# Create a gt table using the `exibble` dataset
exibble |>
select(-c(fctr, date, time, datetime)) |>
gt(rowname_col = "row", groupname_col = "group") |>
sub_missing() |>
summary_rows(
groups = everything(),
columns = num,
fns = list(
avg = ~ mean(.x, na.rm = TRUE)
)
)
| num | char | currency | |
|---|---|---|---|
| grp_a | |||
| row_1 | 1.111e-01 | apricot | 49.950 |
| row_2 | 2.222e+00 | banana | 17.950 |
| row_3 | 3.333e+01 | coconut | 1.390 |
| row_4 | 4.444e+02 | durian | 65100.000 |
| avg | 120.0158 | — | — |
| grp_b | |||
| row_5 | 5.550e+03 | — | 1325.810 |
| row_6 | — | fig | 13.255 |
| row_7 | 7.770e+05 | grapefruit | — |
| row_8 | 8.880e+06 | honeydew | 0.440 |
| avg | 3220850.0000 | — | — |
Institution One, john@example.org↩︎
Institution Two, jane@example.org↩︎